
PROGRAM 1   127 BYTES

   DPY-#SET UUT POWER TO OFF...?1
   DPY-#REMOVE PROCESSOR FROM UUT
   DPY-+...?1
   DPY-#CONNECT 6502 POD TO UUT
   DPY-+...?1
   DPY-#SET UUT POWER TO ON...?1

PROGRAM 2   171 BYTES

   EXECUTE PROGRAM 99
   EXECUTE PROGRAM 1
1: LABEL 1
   DPY-#TEST CODE? <0,1-7> /1
   IF REG1 > 7 GOTO 1
   IF REG1 = 0 GOTO F
   IF REG1 = 2 GOTO 2
   IF REG1 = 3 GOTO 3
   IF REG1 = 4 GOTO 4
   IF REG1 = 5 GOTO 5
   IF REG1 = 6 GOTO 6
   IF REG1 = 7 GOTO 7
   EXECUTE PROGRAM 10
   GOTO 1
2: LABEL 2
   EXECUTE PROGRAM 20
   GOTO 1
3: LABEL 3
   EXECUTE PROGRAM 30
   GOTO 1
4: LABEL 4
   EXECUTE PROGRAM 40
   GOTO 1
5: LABEL 5
   EXECUTE PROGRAM 50
   GOTO 1
6: LABEL 6
   EXECUTE PROGRAM 60
   GOTO 1
7: LABEL 7
   EXECUTE PROGRAM 70
   GOTO 1
F: LABEL F

PROGRAM 7   42 BYTES

   REG1 = 3
1: LABEL 1
   DPY-+#
   REG2 = 5
2: LABEL 2
   DEC REG2
   IF REG2 > 0 GOTO 2
   DEC REG1
   IF REG1 > 0 GOTO 1

PROGRAM 8   21 BYTES

   REG1 = 32
1: LABEL 1
   DEC REG1
   IF REG1 > 0 GOTO 1

PROGRAM 9   8 BYTES

   EXECUTE PROGRAM 8
   EXECUTE PROGRAM 8

PROGRAM 10   91 BYTES

   DPY-TEST MEMORY
   EXECUTE PROGRAM 8
   DPY-#BUS TEST
   EXECUTE PROGRAM 8
   BUS TEST
   DPY-#TEST RAM?1
   IF REG1 = 0 GOTO 2
   EXECUTE PROGRAM 11
2: LABEL 2
   DPY-#TEST ROM?1
   IF REG1 = 0 GOTO F
   EXECUTE PROGRAM 12
F: LABEL F

PROGRAM 11   269 BYTES

   DPY-TEST RAM
   EXECUTE PROGRAM 8
0: LABEL 0
   DPY-#START ADDRESS? <0-FFFF> /6
   IF REG6 > FFFF GOTO 0
1: LABEL 1
   DPY-#ADDRESS RANGE $6 - /7
   IF REG7 > FFFF GOTO 1
   IF REG6 > REG7 GOTO 1
   DPY-#RAM LONG TEST?1
   IF REG1 = 1 GOTO 2
   DPY-RAM SHORT TEST - WAIT
   RAM SHORT @ REG6-REG7
   GOTO 3
2: LABEL 2
   DPY-RAM LONG TEST - WAIT
   RAM LONG @ REG6-REG7
3: LABEL 3
   DPY-#PASSED?1
   IF REG1 = 1 GOTO 7
   DPY-#FAILED
   EXECUTE PROGRAM 77
   IF REG8 = 0 GOTO 7
   EXECUTE PROGRAM 13
7: LABEL 7
   DPY-#MORE RAM?1
   IF REG1 = 1 GOTO 0

PROGRAM 12   388 BYTES

   DPY-ROM TEST
   DPY-ROM TEST
   EXECUTE PROGRAM 8
0: LABEL 0
   DPY-#WHICH ROM? <D0-F8> /7
   IF REG7 > FF GOTO 0
   IF D0 > REG7 GOTO 0
   REG7 = REG7 AND F8
   REG2 = REG7 AND F0
   REG3 = REG7 AND F
   REG6 = 0
   DPY-#ROM $7  SIG? /6
   IF REG6 > 0 GOTO 6
   EXECUTE PROGRAM 15
   IF REG2 = E0 GOTO 2
   IF REG2 = F0 GOTO 4
   IF REG3 = 8 GOTO 1
   REG6 = REG8
   GOTO 6
1: LABEL 1
   REG6 = REG9
   GOTO 6
2: LABEL 2
   IF REG3 = 8 GOTO 3
   REG6 = REGA
   GOTO 6
3: LABEL 3
   REG6 = REGB
   GOTO 6
4: LABEL 4
   IF REG3 = 8 GOTO 5
   REG6 = REGC
   GOTO 6
5: LABEL 5
   REG6 = REGD
6: LABEL 6
   REG8 = REG7
   REG9 = 8
   EXECUTE PROGRAM 97
   DPY-ROM $7  SIG $6 - WAIT
   DPY-ROM $7 TEST  SIG $6 - WAIT
   ROM TEST @ REG8-REG8 OR 7FF SIG REG6
   DPY-#PASSED?1
   IF REG1 = 1 GOTO 7
   DPY-#FAILED
   EXECUTE PROGRAM 77
   IF REG8 = 0 GOTO 7
   REG8 = REG2
   REG9 = REG3
   EXECUTE PROGRAM 14
7: LABEL 7
   DPY-#MORE ROM?1
   IF REG1 = 1 GOTO 0

PROGRAM 13   290 BYTES

0: LABEL 0
   DPY-#RAM ADDRESS? <0-FFFF> /F
   IF REGF > FFFF GOTO 0
   REG8 = 0
   REGA = 55
   REGB = AA
   REGC = FF
   REG5 = 0
   REG2 = 4
1: LABEL 1
   WRITE @ REGF = REG8
   READ @ REGF
   EXECUTE PROGRAM 89
   REG5 = REG5 OR REG9
   REG8 = REGA
   REGA = REGB
   REGB = REGC
   DEC REG2
   IF REG2 > 0 GOTO 1
   IF REG5 = 0 GOTO E
   DPY-#MASK=$5 @ $F <
   IF REG5 = FF GOTO A
   IF REG5 AND F = F GOTO 7
   IF REG5 AND F0 = F0 GOTO 7
   DPY-+BIT
   GOTO D
7: LABEL 7
   DPY-+NYBBLE
   GOTO D
A: LABEL A
   DPY-+BYTE
D: LABEL D
   DPY-+ PROBLEM>
   STOP
   DPY-
   GOTO F
E: LABEL E
   DPY-#RAM @ $F OK  
   EXECUTE PROGRAM 8
F: LABEL F
   DPY-+#ANOTHER ADDRESS?1
   IF REG1 = 1 GOTO 0

PROGRAM 14   450 BYTES

   REG2 = REG8
   REG3 = REG9
   IF REG2 = E0 GOTO 0
   IF REG2 = F0 GOTO 1
   REGA = 0
   GOTO 2
0: LABEL 0
   REGA = 80
   GOTO 2
1: LABEL 1
   REGA = 100
2: LABEL 2
   REG8 = REG3
   REG9 = 3
   EXECUTE PROGRAM 97
   REGA = REGA OR REG8 OR 3C140018
   REG8 = REG3 OR REG2
   REG9 = C
   EXECUTE PROGRAM 97
   REGB = REG8 OR 3
   REGC = 22
   REGD = 10001
   EXECUTE PROGRAM 80
   IF REG9 = 1 GOTO 4
   REGA = REGA AND FF00FFFF OR 120000
   REGC = 2
   EXECUTE PROGRAM 80
   IF REG9 = 1 GOTO 3
   DPY-#ROM
   EXECUTE PROGRAM 76
   DPY-+ROM OR B1 TIMING CKTRY
   GOTO F
3: LABEL 3
   DPY-#ROM PIN 18 BAD
   EXECUTE PROGRAM 78
   EXECUTE PROGRAM 79
   DPY-+I/O PIN 32
   GOTO F
4: LABEL 4
   REGA = 3C04030C
   REGC = 2
   REGD = 50005
   EXECUTE PROGRAM 80
   IF REG9 = 0 GOTO 9
   DPY-#F12-4 BAD
   EXECUTE PROGRAM 78
   EXECUTE PROGRAM 79
   DPY-+B1-6 TIMING CONNECTION
   GOTO F
9: LABEL 9
   REGA = 2806030C
   REGD = 10001
   EXECUTE PROGRAM 80
   IF REG9 = 1 GOTO A
   DPY-#F12
   EXECUTE PROGRAM 76
   DPY-+F12 OR B1 TIMING CKTRY
   GOTO F
A: LABEL A
   DPY-#H1-6 BAD
   EXECUTE PROGRAM 78
   EXECUTE PROGRAM 79
   DPY-+H1
F: LABEL F
   STOP

PROGRAM 15   44 BYTES

   REG8 = 66B8
   REG9 = 83C4
   REGA = C614
   REGB = 0B5A
   REGC = 4E46
   REGD = 5658

PROGRAM 20   799 BYTES

   DPY-TEST KEYBOARD
   EXECUTE PROGRAM 8
   REG5 = 64
   EXECUTE PROGRAM 27
   READ @ C010
   READ @ C000
   IF 80 > REGE GOTO 0
   DPY-#CAN'T CLEAR STROBE
   EXECUTE PROGRAM 77
   IF REG8 = 0 GOTO 0
   EXECUTE PROGRAM 23
0: LABEL 0
   EXECUTE PROGRAM 27
   READ @ C000
   IF REGE AND 80 > 0 GOTO 1
   DPY-#CAN'T SET STROBE
   EXECUTE PROGRAM 77
   IF REG8 = 0 GOTO 1
   EXECUTE PROGRAM 24
1: LABEL 1
   READ @ C010
   DPY-#HOLD "SHIFT" AND PRESS "*"
   DPY-+ KEY
   EXECUTE PROGRAM 22
   REG8 = AA
   EXECUTE PROGRAM 89
   REGA = REG9
   DPY-#PRESS "U" KEY
   EXECUTE PROGRAM 22
   REG8 = D5
   EXECUTE PROGRAM 89
   IF REG9 OR REGA = 0 GOTO 2
   DPY-#BAD DATA...REPEAT?1
   IF REG1 = 1 GOTO 1
   EXECUTE PROGRAM 77
   IF REG8 = 0 GOTO 2
   EXECUTE PROGRAM 25
   GOTO 1
2: LABEL 2
   DPY-#START KEY TEST LOOP?1
   IF REG1 = 0 GOTO 6
3: LABEL 3
   REG8 = 40
   DPY-+%8
4: LABEL 4
   EXECUTE PROGRAM 21
   IF REG8 = 40 GOTO 4
   IF REG8 = 1D GOTO 5
   GOTO 3
5: LABEL 5
   DPY-#MORE KEYS TO TEST?1
   IF REG1 = 1 GOTO 3
6: LABEL 6
   READ @ C010
   DPY-#HOLD DOWN "REPT" AND "P"
   DPY-+ KEYS
   REG1 = A
7: LABEL 7
   REG2 = REG5
8: LABEL 8
   IF REG2 > 0 GOTO 9
   DPY-#NO REPEAT FUNCTION
   EXECUTE PROGRAM 9
   GOTO A
9: LABEL 9
   READ @ C000
   DEC REG2
   IF 80 > REGE GOTO 8
   READ @ C010
   DEC REG1
   IF REG1 > 0 GOTO 7
A: LABEL A
   DPY-#SET CTRL/RESET SWITCH TO
   DPY-+ RESET...?1
   DPY-#PUSH "RESET"
   READ @ STS
   REG4 = 10
   REG2 = REG5
B: LABEL B
   IF REG2 > 0 GOTO C
   DPY-#NO RESET FUNCTION
   EXECUTE PROGRAM 9
   GOTO D
C: LABEL C
   READ @ STS
   DEC REG2
   IF REGC AND REG4 = REG4 GOTO B
D: LABEL D
   DPY-#SET CTRL/RESET SWITCH TO
   DPY-+ CTRL...?1
   DPY-PUSH "RESET"
   READ @ STS
   REG2 = REG5
E: LABEL E
   IF REG2 = 0 GOTO F
   READ @ STS
   DEC REG2
   IF REGC AND REG4 = REG4 GOTO E
   DPY-#CTRL/RESET SWITCH FAILURE
   EXECUTE PROGRAM 9
F: LABEL F

PROGRAM 21   82 BYTES

   REG2 = 14
1: LABEL 1
   IF REG2 > 0 GOTO 2
   DPY-NO KEY
   GOTO E
2: LABEL 2
   READ @ C000
   DEC REG2
   IF 80 > REGE GOTO 1
   DPY-#OUTPUT IS ASCII $E
   READ @ C010
E: LABEL E

PROGRAM 22   56 BYTES

   REG2 = 64
1: LABEL 1
   IF REG2 = 0 GOTO E
   READ @ C000
   DEC REG2
   IF 80 > REGE GOTO 1
   REG2 = REGE
   READ @ C010
   REGE = REG2
E: LABEL E

PROGRAM 23   453 BYTES

   REGA = 28090284
   REGB = C0103
   REGC = 2
   REGD = 40004
   EXECUTE PROGRAM 80
   IF REG9 = 1 GOTO 2
   REG8 = 0
   REG9 = B7
   EXECUTE PROGRAM 26
   GOTO F
2: LABEL 2
   REGA = 3C0E034C
   REGC = 22
   REGD = 10001
   EXECUTE PROGRAM 80
   IF REG9 = 1 GOTO 3
   REGA = 3C0D0284
   EXECUTE PROGRAM 80
   IF REG9 = 1 GOTO 9
   REGA = 3C0A0284
   REGB = 0
   REGC = 2
   EXECUTE PROGRAM 80
   IF REG9 = 1 GOTO A
   REGA = 280B0284
   REGB = 60103
   REGC = 22
   REGD = 0
   EXECUTE PROGRAM 80
   IF REG9 = 1 GOTO B
   DPY-#B10
   EXECUTE PROGRAM 76
   DPY-+B10
   GOTO F
3: LABEL 3
   REG8 = 3
   EXECUTE PROGRAM 26
   GOTO F
9: LABEL 9
   REGA = 3C0402C6
   EXECUTE PROGRAM 80
   IF REG9 = 1 GOTO D
   REGA = 3C030302
   REGB = 0
   REGC = 2
   REGD = 40004
   EXECUTE PROGRAM 80
   IF REG9 = 1 GOTO E
   DPY-#A12
   EXECUTE PROGRAM 76
   DPY-+A12
   GOTO F
A: LABEL A
   DPY-#B10-10 BAD
   GOTO F
B: LABEL B
   DPY-#B10-11 TOGGLING
   EXECUTE PROGRAM 78
   EXECUTE PROGRAM 79
   DPY-+KEYBOARD CKTRY
   GOTO F
D: LABEL D
   DPY-#C11
   EXECUTE PROGRAM 76
   DPY-+C11
   GOTO F
E: LABEL E
   DPY-#A12-3 BAD
   EXECUTE PROGRAM 78
   EXECUTE PROGRAM 79
   DPY-+POWER-UP RESET CKTRY
F: LABEL F
   STOP

PROGRAM 24   481 BYTES

   REGA = 3C090284
   REGB = 1B0000B
   REGC = 2
   REGD = 10001
   EXECUTE PROGRAM 80
   IF REG9 = 1 GOTO 2
   REG8 = 3
   REG9 = B7
   EXECUTE PROGRAM 26
   GOTO F
2: LABEL 2
   REGA = 3C0B0284
   REGC = 22
   EXECUTE PROGRAM 80
   IF REG9 = 1 GOTO 3
   REGA = 3C0C0284
   REGB = 0
   REGC = 2
   EXECUTE PROGRAM 80
   IF REG9 = 1 GOTO 6
   REGA = 3C0D0284
   EXECUTE PROGRAM 80
   IF REG9 = 1 GOTO 7
   DPY-#B10
   EXECUTE PROGRAM 76
   DPY-+B10
   GOTO F
3: LABEL 3
   REGA = 0
   REGB = 0
   REGC = 2
   EXECUTE PROGRAM 80
   DPY-#B10-11 STUCK 
   IF REGE = 4 GOTO 4
   DPY-+HIGH
   GOTO 5
4: LABEL 4
   DPY-+LOW
5: LABEL 5
   EXECUTE PROGRAM 78
   EXECUTE PROGRAM 79
   DPY-+KEYBOARD CKTRY
   GOTO F
6: LABEL 6
   DPY-#B10-12 BAD
   GOTO F
7: LABEL 7
   REGA = 3C0E034C
   EXECUTE PROGRAM 80
   IF REG9 = 1 GOTO 8
   REGA = 3C0402C6
   REGD = 40004
   EXECUTE PROGRAM 80
   IF REG9 = 1 GOTO 9
   REGA = 3C030302
   REGD = 40004
   EXECUTE PROGRAM 80
   IF REG9 = 1 GOTO A
   DPY-#A12
   EXECUTE PROGRAM 76
   DPY-+A12
   GOTO F
8: LABEL 8
   DPY-#F13-14 BAD
   GOTO F
9: LABEL 9
   DPY-#C11
   EXECUTE PROGRAM 76
   DPY-+C11
   GOTO F
A: LABEL A
   DPY-#A12-3 BAD
   EXECUTE PROGRAM 78
   EXECUTE PROGRAM 79
   DPY-+POWER-UP RESET CKTRY
F: LABEL F
   STOP

PROGRAM 25   432 BYTES

   REG2 = 0
   REG5 = REG9 OR REGA
0: LABEL 0
   IF REG5 AND 1 = 1 GOTO 1
   SHR REG5
   INC REG2
   GOTO 0
1: LABEL 1
   REG3 = REG2 AND 1
   REG4 = 0
   DPY-#PRESS "U"...?1
   REG9 = REG2
   EXECUTE PROGRAM 28
   REG6 = REG8
   REG7 = REG9
   REGA = REGA OR 3C000000
   REGB = 0
   REGC = 2
   REGD = 10001
   IF REG3 = 0 GOTO 2
   REGD = 40004
2: LABEL 2
   EXECUTE PROGRAM 80
   IF REG9 = 0 GOTO 4
   IF REG3 = 0 GOTO 3
   REG4 = REG4 OR 1
   GOTO 4
3: LABEL 3
   REG4 = REG4 OR 10
4: LABEL 4
   DPY-#HOLD "SHIFT" AND PRESS "*"
   DPY-+...?1
   REGD = 40004
   IF REG3 = 0 GOTO 5
   REGD = 10001
5: LABEL 5
   EXECUTE PROGRAM 80
   IF REG9 = 0 GOTO 7
   IF REG3 = 0 GOTO 6
   REG4 = REG4 OR 1
   GOTO 7
6: LABEL 6
   REG4 = REG4 OR 10
7: LABEL 7
   IF REG4 > 0 GOTO A
   REG8 = 0
   REG9 = REG6
   EXECUTE PROGRAM 26
   GOTO F
A: LABEL A
   DPY-#$6-$7 
   IF REG4 = 3 GOTO C
   DPY-+STUCK 
   IF REG4 AND 1 = 1 GOTO B
   DPY-+LOW
   GOTO D
B: LABEL B
   DPY-+HIGH
   GOTO D
C: LABEL C
   DPY-+REVERSED STATE
D: LABEL D
   EXECUTE PROGRAM 78
   EXECUTE PROGRAM 79
   DPY-+KEYBOARD CKTRY
F: LABEL F
   STOP

PROGRAM 26   556 BYTES

   IF REG8 = 3 GOTO 3
   REG2 = REG9
   REG8 = REG2 AND F
   REG9 = 6
   EXECUTE PROGRAM 97
   REG3 = REG8
   REGA = 3C0F034C
   REGB = C0003
   REGC = 22
   REGD = 10001
   EXECUTE PROGRAM 80
   IF REG9 = 1 GOTO 3
   REGA = 3C0F0004 OR REG3
   REGC = 2
   REGD = 50005
   EXECUTE PROGRAM 80
   IF REG9 = 1 GOTO C
   DPY-#$2
   EXECUTE PROGRAM 76
   DPY-+$2 OR B1 TIMING CKTRY
   GOTO F
3: LABEL 3
   REGA = 3C05034C
   EXECUTE PROGRAM 80
   IF REG9 = 1 GOTO 4
   REGA = 3C06034C
   REGC = 2
   REGD = 50005
   EXECUTE PROGRAM 80
   IF REG9 = 1 GOTO 8
   DPY-#F13
   EXECUTE PROGRAM 76
   DPY-+F13 OR B1 TIMING CKTRY
   GOTO F
4: LABEL 4
   REGA = 3C060310
   REGB = 0
   REGC = 2
   EXECUTE PROGRAM 80
   IF REG9 = 1 GOTO 5
   REGA = 3C040310
   REGB = C0003
   REGC = 22
   EXECUTE PROGRAM 80
   IF REG9 = 1 GOTO 6
   DPY-#H12
   EXECUTE PROGRAM 76
   DPY-+H12 OR B1 TIMING CKTRY
   GOTO F
5: LABEL 5
   DPY-#H12-6 BAD
   EXECUTE PROGRAM 78
   EXECUTE PROGRAM 79
   DPY-+USER 1 JUMPER
   EXECUTE PROGRAM 78
   DPY-+<I/O PIN 39>
   GOTO F
6: LABEL 6
   DPY-#H12-4 BAD
   EXECUTE PROGRAM 78
   EXECUTE PROGRAM 79
   DPY-+F12 SELECT CKTRY
   GOTO F
8: LABEL 8
   DPY-#F13-6 BAD
   EXECUTE PROGRAM 78
   EXECUTE PROGRAM 79
   DPY-+B1 TIMING CKTRY
   GOTO F
C: LABEL C
   DPY-#B7-15 BAD
   EXECUTE PROGRAM 78
   EXECUTE PROGRAM 79
   DPY-+RAM SELECT CKTRY
F: LABEL F

PROGRAM 27   23 BYTES

   DPY-#PRESS ANY KEY...?1

PROGRAM 28   164 BYTES

   REG2 = REG9
   IF REG2 AND 4 = 4 GOTO 1
   REGA = 84
   REG8 = B6
   GOTO 2
1: LABEL 1
   REGA = C4
   REG8 = B7
2: LABEL 2
   REG2 = REG2 AND 3
   IF REG2 = 1 GOTO 5
   IF REG2 = 2 GOTO 6
   IF REG2 = 3 GOTO 7
   REGA = REGA OR B0100
   REG9 = 11
   GOTO F
5: LABEL 5
   REGA = REGA OR E0100
   REG9 = 14
   GOTO F
6: LABEL 6
   REGA = REGA OR 20100
   REG9 = 2
   GOTO F
7: LABEL 7
   REGA = REGA OR 50100
   REG9 = 5
F: LABEL F

PROGRAM 30   97 BYTES

   DPY-TEST SPEAKER
   EXECUTE PROGRAM 8
1: LABEL 1
   EXECUTE PROGRAM 31
   DPY-#WARBLING TONE HEARD?1
   IF REG1 = 1 GOTO E
   DPY-+...RPT?1
   IF REG1 = 1 GOTO 1
   EXECUTE PROGRAM 77
   IF REG8 = 0 GOTO E
   EXECUTE PROGRAM 32
E: LABEL E

PROGRAM 31   29 BYTES

   REG1 = 15
1: LABEL 1
   WALK @ C030 = 1
   DEC REG1
   IF REG1 > 0 GOTO 1

PROGRAM 32   502 BYTES

   REGA = 3C050352
   REGB = C0303
   REGC = 0
   EXECUTE PROGRAM 80
   REGA = 0
   REGC = 22
   REGD = 10001
   EXECUTE PROGRAM 80
   IF REG9 = 1 GOTO 1
   DPY-#J13-5 OK
   EXECUTE PROGRAM 78
   EXECUTE PROGRAM 79
   DPY-+SPEAKER OR Q4 CKTRY
   GOTO F
1: LABEL 1
   IF REGE > 1 GOTO 4
   REGA = 0
   REGB = 0
   REGC = 2
   EXECUTE PROGRAM 80
   IF REGE = 1 GOTO 3
   REGA = 3C010352
   EXECUTE PROGRAM 80
   IF REG9 = 0 GOTO 4
   DPY-#J13-1 BAD
   GOTO F
3: LABEL 3
   REGA = 3C040352
   EXECUTE PROGRAM 80
   IF REG9 = 0 GOTO 4
   DPY-#J13-4 BAD
   GOTO F
4: LABEL 4
   REGA = 3C030352
   REGB = C0303
   REGC = 22
   EXECUTE PROGRAM 80
   IF REG9 = 1 GOTO 8
   DPY-#J13
   EXECUTE PROGRAM 76
   DPY-+J13
   GOTO F
8: LABEL 8
   REGA = 3C05034C
   EXECUTE PROGRAM 80
   IF REG9 = 1 GOTO A
   DPY-#F13
   EXECUTE PROGRAM 76
   DPY-+F13
   GOTO F
A: LABEL A
   REGA = 3C060310
   REGB = 0
   REGC = 2
   EXECUTE PROGRAM 80
   IF REG9 = 1 GOTO B
   REGA = 3C040310
   REGB = C0303
   REGC = 22
   EXECUTE PROGRAM 80
   IF REG9 = 1 GOTO C
   DPY-#H12
   EXECUTE PROGRAM 76
   DPY-+H12
   GOTO F
B: LABEL B
   DPY-#H12-6 BAD
   EXECUTE PROGRAM 78
   EXECUTE PROGRAM 79
   DPY-+USER 1 JUMPER
   EXECUTE PROGRAM 78
   DPY-+<I/O PIN 39>
   GOTO F
C: LABEL C
   DPY-#H12-4 BAD
   EXECUTE PROGRAM 78
   EXECUTE PROGRAM 79
   DPY-+F12
F: LABEL F
   STOP

PROGRAM 40   63 BYTES

   DPY-TEST VIDEO MODE SELECTS
   EXECUTE PROGRAM 8
   REG3 = 4
   REGF = C050
1: LABEL 1
   EXECUTE PROGRAM 41
   DEC REG3
   IF REG3 > 0 GOTO 1
   EXECUTE PROGRAM 42

PROGRAM 41   230 BYTES

   REG3 = REGF SHR AND 3 OR 4
   REG8 = REG3
   REG9 = 10
   EXECUTE PROGRAM 97
   REGA = 3C00038C OR REG8
   REGB = 0
   REGC = 2
1: LABEL 1
   READ @ REGF
   REGD = 40004
   READ PROBE
   EXECUTE PROGRAM 80
   REG4 = REG9 SHL
   READ @ REGF INC
   REGA = 0
   REGD = 10001
   READ PROBE
   EXECUTE PROGRAM 80
   REG4 = REG4 OR REG9
   IF REG4 = 0 GOTO F
   DPY-F14-@3 
   IF REG4 = 2 GOTO 2
   IF REG4 = 1 GOTO 3
   DPY-+REVERSED STATE
   GOTO 4
2: LABEL 2
   DPY-+STUCK HIGH
   GOTO 4
3: LABEL 3
   DPY-+STUCK LOW
4: LABEL 4
   DPY-+#...REPEAT?1
   IF REG1 = 0 GOTO F
   DEC REGF
   GOTO 1
F: LABEL F
   INC REGF

PROGRAM 42   84 BYTES

   REGA = 3C0300C4
   REGB = 80000B
   REGC = 22
1: LABEL 1
   EXECUTE PROGRAM 80
   DPY-#BLINK CLOCK = @E HZ
   DPY-+...REPEAT?1
   REGA = 0
   READ PROBE
   IF REG1 = 1 GOTO 1

PROGRAM 50   45 BYTES

   DPY-TEST INPUTS
   EXECUTE PROGRAM 8
   REG3 = 4
   REG8 = 0
1: LABEL 1
   INC REG8
   EXECUTE PROGRAM 51
   IF REG3 > REG8 GOTO 1

PROGRAM 51   236 BYTES

   REG6 = REG8
0: LABEL 0
   REG8 = REG6
   REG9 = 0
   EXECUTE PROGRAM 52
   REG8 = A
   EXECUTE PROGRAM 53
   IF REG8 > 0 GOTO 1
   EXECUTE PROGRAM 7
   DPY-STUCK HIGH...REPEAT?1
   IF REG1 = 1 GOTO 0
   GOTO 2
1: LABEL 1
   IF REG9 > 0 GOTO 3
   EXECUTE PROGRAM 7
   DPY-STUCK LOW...REPEAT?1
   IF REG1 = 1 GOTO 0
2: LABEL 2
   EXECUTE PROGRAM 77
   IF REG8 = 0 GOTO 3
   REG8 = REG6
   EXECUTE PROGRAM 54
3: LABEL 3
   REG8 = REG6
   REG9 = 1
   EXECUTE PROGRAM 52
4: LABEL 4
   REG8 = A
   EXECUTE PROGRAM 53
   IF REG8 = 0 GOTO E
   IF REG9 = 0 GOTO E
   EXECUTE PROGRAM 7
   DPY-STILL TOGGLING...REPEAT?1
   IF REG1 = 1 GOTO 3
E: LABEL E
   REG8 = REG6

PROGRAM 52   171 BYTES

   IF REG9 = 1 GOTO 1
   DPY-TIE D11-12 TO 
   GOTO 2
1: LABEL 1
   DPY-DISCONNECT 
2: LABEL 2
   IF REG8 = 4 GOTO 5
   IF REG8 = 3 GOTO 4
   IF REG8 = 2 GOTO 3
   DPY-+CASS INPUT
   REGF = C060
   GOTO F
3: LABEL 3
   DPY-+H14-3
   REGF = C061
   GOTO F
4: LABEL 4
   DPY-+H14-2
   REGF = C062
   GOTO F
5: LABEL 5
   DPY-+H14-1
   REGF = C063
F: LABEL F
   DPY-+#...?1

PROGRAM 53   62 BYTES

   REG2 = 0
   REG3 = 0
1: LABEL 1
   READ @ REGF
   DEC REG8
   IF REGE > 7F GOTO 2
   INC REG2
   GOTO 3
2: LABEL 2
   INC REG3
3: LABEL 3
   IF REG8 > 0 GOTO 1
   REG8 = REG2
   REG9 = REG3

PROGRAM 54   181 BYTES

   IF REG8 > 1 GOTO 2
   REGA = 3C040390
   REGB = 0
   REGC = 2
   EXECUTE PROGRAM 80
   IF REGE AND 5 = 5 GOTO 2
   DPY-#H14-4 BAD
   EXECUTE PROGRAM 78
   EXECUTE PROGRAM 79
   DPY-+K13 CKTRY
   GOTO F
2: LABEL 2
   REGA = 3C09034C
   REGB = REGF SHL SHL SHL SHL OR 3
   REGC = 22
   REGD = 10001
   EXECUTE PROGRAM 80
   IF REG9 = 1 GOTO 3
   DPY-#H14
   EXECUTE PROGRAM 76
   DPY-+H14
   GOTO F
3: LABEL 3
   DPY-#F13-9 BAD
   EXECUTE PROGRAM 78
   EXECUTE PROGRAM 79
   DPY-+F13
F: LABEL F
   STOP

PROGRAM 60   239 BYTES

   DPY-TEST CASSETTE OUTPUT
   EXECUTE PROGRAM 8
1: LABEL 1
   REGA = 3C080352
   REGB = 0
   REGC = 0
   EXECUTE PROGRAM 80
   REG2 = 5
2: LABEL 2
   READ @ C020
   READ @ REGF
   DEC REG2
   IF REG2 > 0 GOTO 2
   REGA = 0
   REGC = 22
   REGD = 50005
   EXECUTE PROGRAM 80
   IF REG9 = 0 GOTO 3
   EXECUTE PROGRAM 7
   DPY-COUNTED @E  NOT 5
   DPY-+...REPEAT?1
   IF REG1 = 1 GOTO 1
   EXECUTE PROGRAM 77
   IF REG8 = 0 GOTO 3
   EXECUTE PROGRAM 61
3: LABEL 3
   READ PROBE
   REGB = 80000B
   REGD = 0
   EXECUTE PROGRAM 80
   IF REG9 = 0 GOTO F
   EXECUTE PROGRAM 7
   DPY-NOISY OUTPUT...REPEAT?1
   IF REG1 = 1 GOTO 3
F: LABEL F

PROGRAM 61   304 BYTES

   REGA = 3C080352
   REGB = C0203
   REGC = 0
   EXECUTE PROGRAM 80
   REGA = 0
   REGC = 22
   REGD = 10001
   EXECUTE PROGRAM 80
   IF REG9 = 1 GOTO 1
   DPY-#J13-8 OK
   EXECUTE PROGRAM 78
   EXECUTE PROGRAM 79
   DPY-+R18-R19 CKTRY
   GOTO F
1: LABEL 1
   IF REGE > 1 GOTO 4
   REGA = 0
   REGB = 0
   REGC = 2
   EXECUTE PROGRAM 80
   IF REGE = 1 GOTO 3
   REGA = 3C0D0352
   EXECUTE PROGRAM 80
   IF REG9 = 0 GOTO 4
   DPY-#J13-13 BAD
   GOTO F
3: LABEL 3
   REGA = 3C0A0352
   EXECUTE PROGRAM 80
   IF REG9 = 0 GOTO 4
   DPY-#J13-10 BAD
   GOTO F
4: LABEL 4
   REGA = 3C0B0352
   REGB = C0203
   REGC = 22
   EXECUTE PROGRAM 80
   IF REG9 = 1 GOTO 8
   DPY-#J13
   EXECUTE PROGRAM 76
   DPY-+J13
   GOTO F
8: LABEL 8
   DPY-#J13-11 BAD
   EXECUTE PROGRAM 78
   EXECUTE PROGRAM 79
   DPY-+F13
F: LABEL F
   STOP

PROGRAM 70   247 BYTES

   DPY-TEST I/O AND DEVICE SELECTS
   EXECUTE PROGRAM 8
   REGC = 22
   REGD = 10001
1: LABEL 1
   DPY-#I/O SELECT - SLOT NO.?
   DPY-+ <1-7,F> /8
   IF REG8 = F GOTO 2
   IF REG8 = 0 GOTO 1
   IF REG8 > 7 GOTO 1
2: LABEL 2
   EXECUTE PROGRAM 71
   DPY-#MORE I/O SELECTS?1
   IF REG1 = 1 GOTO 1
4: LABEL 4
   DPY-#DEVICE SEL - SLOT NO.?
   DPY-+ <0-7,F> /8
   IF REG8 = F GOTO 5
   IF REG8 > 7 GOTO 4
5: LABEL 5
   EXECUTE PROGRAM 72
   DPY-#MORE DEVICE SELECTS?1
   IF REG1 = 1 GOTO 4

PROGRAM 71   217 BYTES

   REG3 = REG8
   IF REG3 = 2 GOTO 2
   IF REG3 = 3 GOTO 3
   IF REG3 = 4 GOTO 4
   IF REG3 = 5 GOTO 5
   IF REG3 = 6 GOTO 6
   IF REG3 = 7 GOTO 7
   REG8 = 1
   REG9 = E
   EXECUTE PROGRAM 73
   IF F > REG3 GOTO F
2: LABEL 2
   REG8 = 2
   REG9 = D
   EXECUTE PROGRAM 73
   IF F > REG3 GOTO F
3: LABEL 3
   REG8 = 3
   REG9 = C
   EXECUTE PROGRAM 73
   IF F > REG3 GOTO F
4: LABEL 4
   REG8 = 4
   REG9 = B
   EXECUTE PROGRAM 73
   IF F > REG3 GOTO F
5: LABEL 5
   REG8 = 5
   REG9 = A
   EXECUTE PROGRAM 73
   IF F > REG3 GOTO F
6: LABEL 6
   REG8 = 6
   REG9 = 9
   EXECUTE PROGRAM 73
   IF F > REG3 GOTO F
7: LABEL 7
   REG8 = 7
   REG9 = 7
   EXECUTE PROGRAM 73
   IF F > REG3 GOTO F
F: LABEL F

PROGRAM 72   248 BYTES

   REG3 = REG8
   IF REG3 = 1 GOTO 1
   IF REG3 = 2 GOTO 2
   IF REG3 = 3 GOTO 3
   IF REG3 = 4 GOTO 4
   IF REG3 = 5 GOTO 5
   IF REG3 = 6 GOTO 6
   IF REG3 = 7 GOTO 7
   REG8 = 0
   REG9 = F
   EXECUTE PROGRAM 74
   IF F > REG3 GOTO F
1: LABEL 1
   REG8 = 1
   REG9 = E
   EXECUTE PROGRAM 74
   IF F > REG3 GOTO F
2: LABEL 2
   REG8 = 2
   REG9 = D
   EXECUTE PROGRAM 74
   IF F > REG3 GOTO F
3: LABEL 3
   REG8 = 3
   REG9 = C
   EXECUTE PROGRAM 74
   IF F > REG3 GOTO F
4: LABEL 4
   REG8 = 4
   REG9 = B
   EXECUTE PROGRAM 74
   IF F > REG3 GOTO F
5: LABEL 5
   REG8 = 5
   REG9 = A
   EXECUTE PROGRAM 74
   IF F > REG3 GOTO F
6: LABEL 6
   REG8 = 6
   REG9 = 9
   EXECUTE PROGRAM 74
   IF F > REG3 GOTO F
7: LABEL 7
   REG8 = 7
   REG9 = 7
   EXECUTE PROGRAM 74
   IF F > REG3 GOTO F
F: LABEL F

PROGRAM 73   98 BYTES

   REG5 = REG9
   REG9 = C
   EXECUTE PROGRAM 97
   REGB = C0003 OR REG8
   REG8 = REG5
   REG9 = 10
   EXECUTE PROGRAM 97
   REGA = 3C000310 OR REG8
   EXECUTE PROGRAM 80
   IF REG9 = 0 GOTO F
   DPY-#H12-@5 BAD
   EXECUTE PROGRAM 78
   EXECUTE PROGRAM 79
   DPY-+H12
   STOP
F: LABEL F

PROGRAM 74   96 BYTES

   REG5 = REG9
   REG9 = 8
   EXECUTE PROGRAM 97
   REGB = C0803 OR REG8
   REG8 = REG5
   REG9 = 10
   EXECUTE PROGRAM 97
   REGA = 3C000090 OR REG8
   EXECUTE PROGRAM 80
   IF REG9 = 0 GOTO F
   DPY-#H2-@5 BAD
   EXECUTE PROGRAM 78
   EXECUTE PROGRAM 79
   DPY-+H2
   STOP
F: LABEL F

PROGRAM 76   28 BYTES

   DPY-+ INPUTS PRESENT
   EXECUTE PROGRAM 78
   EXECUTE PROGRAM 79

PROGRAM 77   27 BYTES

   EXECUTE PROGRAM 78
   DPY-#TROUBLESHOOT NOW?8

PROGRAM 78   13 BYTES

   DPY-+ <CONT>
   STOP

PROGRAM 79   13 BYTES

   DPY-#SUSPECT 

PROGRAM 80   93 BYTES

   REG1 = REGA
   REG2 = REGB
   REG3 = REGC
   REG4 = REGD
   IF REG1 AND FFFFFFFE = 0 GOTO 1
   EXECUTE PROGRAM 81
1: LABEL 1
   EXECUTE PROGRAM 82
   REGC = REG3
   REGD = REG4
   EXECUTE PROGRAM 83
   IF REG1 AND 1 = 0 GOTO F
   EXECUTE PROGRAM 84
F: LABEL F
   REGA = REG1
   REGB = REG2

PROGRAM 81   183 BYTES

   REG8 = REGA
   REG9 = 18
   EXECUTE PROGRAM 98
   REG2 = REG8 AND 3
   SHR REG8
   SHR REG8
   IF REG8 = A GOTO 1
   IF REG8 = D GOTO 2
   IF REG8 = F GOTO 3
   GOTO 8
1: LABEL 1
   SYNC ADDRESS
   GOTO 8
2: LABEL 2
   SYNC DATA
   GOTO 8
3: LABEL 3
   SYNC FREE-RUN
8: LABEL 8
   IF REGA AND 3E = 0 GOTO E
   EXECUTE PROGRAM 85
   IF REG2 = 0 GOTO D
   DPY-+ PULSE 
   IF REG2 AND 2 = 0 GOTO A
   DPY-+HI
   IF REG2 AND 1 = 0 GOTO D
   DPY-+ + 
A: LABEL A
   DPY-+LO
D: LABEL D
   DPY-+ OK?1
E: LABEL E
   IF REGC AND D > 0 GOTO F
   READ PROBE
F: LABEL F

PROGRAM 82   294 BYTES

   REG5 = REGB AND F
   IF REG5 = 0 GOTO F
   IF REG5 > 9 GOTO 5
   IF REG5 > 2 GOTO 2
   IF REG5 = 1 GOTO 1
   READ @ STS
   GOTO F
1: LABEL 1
   BUS TEST
   GOTO F
2: LABEL 2
   REG8 = REGB
   REG9 = 4
   EXECUTE PROGRAM 98
   REGF = REG8 AND FFFF
   IF REG5 = 9 GOTO C
   IF REG5 > 5 GOTO 5
   IF REG5 = 3 GOTO 3
   IF REG5 = 4 GOTO 4
   RUN UUT @ REGF
   GOTO F
3: LABEL 3
   READ @ REGF
   GOTO F
4: LABEL 4
   RAMP @ REGF
   GOTO F
5: LABEL 5
   REG8 = REGB
   REG9 = 14
   EXECUTE PROGRAM 98
   REGE = REG8 AND FF
   IF REG5 = 6 GOTO 7
   IF REG5 = 7 GOTO 8
   IF REG5 = 8 GOTO C
   IF REG5 = A GOTO 9
   EXECUTE PROGRAM REGE
   GOTO F
7: LABEL 7
   WRITE @ REGF = REGE
   GOTO F
8: LABEL 8
   WALK @ REGF = REGE
   GOTO F
9: LABEL 9
   WRITE @ CTL = REGE
   GOTO F
C: LABEL C
   REG8 = REGB
   REG9 = 1C
   EXECUTE PROGRAM 98
   REGD = REG8
   IF REG5 = 8 GOTO D
   ATOG @ REGF BIT REGD
   GOTO F
D: LABEL D
   DTOG @ REGF = REGE BIT REGD
F: LABEL F

PROGRAM 83   65 BYTES

   EXECUTE PROGRAM 86
   REG2 = REGD AND FFFF
   REG8 = REGD
   REG9 = 10
   EXECUTE PROGRAM 98
   REG9 = 0
   IF REG2 > REGE GOTO 9
   IF REG8 >= REGE GOTO F
9: LABEL 9
   REG9 = 1
F: LABEL F

PROGRAM 84   24 BYTES

   DPY-#DISABLE PULSER...?1

PROGRAM 85   175 BYTES

   REG8 = REGA
   SHR REG8
   DPY-#PROBE 
   EXECUTE PROGRAM 87
   REG5 = REG8 AND 1F
   REG9 = 5
   EXECUTE PROGRAM 98
   REG2 = REG8 AND 3FF
   IF REG5 = C GOTO 3
   DPY-+@2
   GOTO C
3: LABEL 3
   REG4 = REG8
   REG8 = REG2 AND 1
   REG3 = REG2 AND 6
   IF REG3 = 2 GOTO 4
   IF REG3 = 4 GOTO 5
   DPY-+D
   GOTO 6
4: LABEL 4
   DPY-+E
   GOTO 6
5: LABEL 5
   DPY-+F
6: LABEL 6
   REG9 = 3
   EXECUTE PROGRAM 97
   DPY-+$8
   REG8 = REG4
C: LABEL C
   REG9 = A
   EXECUTE PROGRAM 98
   REG2 = REG8 AND FF
   DPY-+-@2

PROGRAM 86   180 BYTES

   REG5 = REGC AND F
   IF REG5 = 0 GOTO F
   IF REG5 = 2 GOTO 1
   REG8 = REGC
   IF REG5 = 3 GOTO 4
   IF REG5 = 4 GOTO 5
   READ @ STS
   REGE = REGC
   GOTO F
1: LABEL 1
   EXECUTE PROGRAM 88
   REG8 = REGC
   REG9 = 4
   EXECUTE PROGRAM 98
   REG2 = REG8 AND 7
   IF REG2 = 1 GOTO 2
   IF REG2 = 2 GOTO 3
   GOTO F
2: LABEL 2
   REGE = REGB
   GOTO F
3: LABEL 3
   REGE = REGA
   GOTO F
4: LABEL 4
   REG9 = 7
   EXECUTE PROGRAM 98
   REGF = REG8 AND FFFF
   READ @ REGF
   GOTO F
5: LABEL 5
   REG9 = 17
   EXECUTE PROGRAM 98
   REGE = REG8 AND 7F
   EXECUTE PROGRAM REGE
F: LABEL F

PROGRAM 87   229 BYTES

   REG5 = REG8 AND 1F
   IF REG5 = 0 GOTO F
   IF REG5 = 1 GOTO 1
   IF REG5 = 2 GOTO 2
   IF REG5 = 3 GOTO 3
   IF REG5 = 4 GOTO 4
   IF REG5 = 5 GOTO 5
   IF REG5 = 6 GOTO 6
   IF REG5 = 7 GOTO 7
   IF REG5 = 8 GOTO 8
   IF REG5 = 9 GOTO 9
   IF REG5 = A GOTO A
   IF REG5 = B GOTO B
   DPY-+ROM 
   GOTO F
1: LABEL 1
   DPY-+A
   GOTO F
2: LABEL 2
   DPY-+B
   GOTO F
3: LABEL 3
   DPY-+C
   GOTO F
4: LABEL 4
   DPY-+D
   GOTO F
5: LABEL 5
   DPY-+E
   GOTO F
6: LABEL 6
   DPY-+F
   GOTO F
7: LABEL 7
   DPY-+G
   GOTO F
8: LABEL 8
   DPY-+H
   GOTO F
9: LABEL 9
   DPY-+J
   GOTO F
A: LABEL A
   DPY-+K
   GOTO F
B: LABEL B
   DPY-+I/O
F: LABEL F

PROGRAM 88   50 BYTES

   READ PROBE
   REGA = REG0 AND 7F
   REG8 = REG0
   REG9 = 8
   EXECUTE PROGRAM 98
   REGB = REG8 AND FFFF
   REG9 = 10
   EXECUTE PROGRAM 98
   REGE = REG8 AND 7

PROGRAM 89   23 BYTES

   REG5 = REGE CPL AND REG8
   REG9 = REG8 CPL AND REGE OR REG5

PROGRAM 97   18 BYTES

1: LABEL 1
   SHL REG8
   DEC REG9
   IF REG9 > 0 GOTO 1

PROGRAM 98   18 BYTES

1: LABEL 1
   SHR REG8
   DEC REG9
   IF REG9 > 0 GOTO 1

PROGRAM 99   405 BYTES

   DPY-#APPLE II TBLSHOOTING VER 
   DPY-+1.0
   EXECUTE PROGRAM 9
   DPY-#<C>1982 JOHN FLUKE MFG CO
   DPY-+ INC
   EXECUTE PROGRAM 9
   DPY-#ALL RIGHTS RESERVED
   EXECUTE PROGRAM 9
   GOTO F
   DPY- 1 SETUP
   DPY- 2 EXEC
   DPY- 7 TRPL BEEP
   DPY- 8 1 SEC DELAY
   DPY- 9 2 SEC DELAY
   DPY-10-15 TST MEM
   DPY-20-28 TST KBD
   DPY-30-32 TST SPKR
   DPY-40-42 TST VIDEO MODE SEL
   DPY-50-54 TST INPUTS
   DPY-60-61 TST CASS OUTPUT
   DPY-70-74 TST I/O + DEV SEL
   DPY-76-79 MESSAGES
   DPY-80-88 CHECK NODE
   DPY-89 COMPARE DATA <XOR>
   DPY-97 SHL
   DPY-98 SHR
   DPY-99 CONTENT LISTING
F: LABEL F
